KimStacks 7/KimStacks CD-ROM 7 1993.iso/ShareWare/HyperCard/frog/card_3002.txt

Text File | 1990-06-22 | 8.0 KB | 421 lines

-- card: 3002 from stack: in
-- bmap block id: 3312
-- flags: 0000
-- background id: 2641
-- name:


-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=14 top=216 right=245 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  visual zoom open slow
  go to card id 2119
end mouseUp




-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=13 top=269 right=296 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go to card id 3633
end mouseUp




-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=14 top=245 right=269 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  visual zoom open slow
  go to card id 4548
end mouseUp




-- part 5 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=374 top=27 right=296 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name:


-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=351 top=59 right=74 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bladder
----- HyperTalk script -----
on mouseUp

  choose bucket tool
  set pattern to 4
  set the highlight of button "bladder" to true
  repeat 3 times
    click at 225,93
    domenu undo
  end repeat
  set the highlight of button "bladder" to false
  choose browse tool

end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=351 top=107 right=122 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: muscle
----- HyperTalk script -----
on mouseUp

  choose bucket tool
  set pattern to 4
  set the highlight of button "muscle" to true
  repeat 3 times
    click at 171,131
    domenu undo
  end repeat
  set the highlight of button "muscle" to false
  choose browse tool

end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=351 top=75 right=90 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cloaca
----- HyperTalk script -----
on mouseUp
  choose oval tool

  set linesize to 4
  set the highlight of button cloaca to true
  repeat 3
    drag from 205,102 to 248,128

    wait 20 ticks
    domenu undo
    wait 20 ticks
  end repeat
  set linesize to 1
  choose browse tool
  set the highlight of button cloaca to false
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=352 top=91 right=106 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: large intes
----- HyperTalk script -----
on mouseUp
  choose bucket tool
  set pattern to 4
  repeat 3 times
    click at 222, 59
    domenu undo
  end repeat
  choose browse tool

end mouseUp



-- part 11 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=211 top=63 right=75 bottom=229
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 5
-- style flags: 0
-- line height: 6
-- part name:


-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=351 top=123 right=138 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: oviduct
----- HyperTalk script -----
on mouseUp
  choose bucket tool

  set the highlight of button "oviduct" to true
  set pattern to 4
  repeat 2 times
    click at 271, 51
    domenu undo
    click at 206,58
    domenu undo
  end repeat
  choose browse tool
  set the highlight of button "oviduct" to false
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=259 top=41 right=62 bottom=290
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: oviduct f
----- HyperTalk script -----
on mouseUp

  repeat 2 times
    set highlight of button "oviduct" to true
    wait 30 ticks
    set highlight of button "oviduct" to false
    wait 30 ticks
  end repeat
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=187 top=41 right=59 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: oviduct f2
----- HyperTalk script -----
on mouseUp

  repeat 2 times
    set highlight of button "oviduct" to true
    wait 30 ticks
    set highlight of button "oviduct" to false
    wait 30 ticks
  end repeat
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=207 top=74 right=103 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bladder f
----- HyperTalk script -----
on mouseUp

  repeat 2 times
    set highlight of button "bladder" to true
    wait 30 ticks
    set highlight of button "bladder" to false
    wait 30 ticks
  end repeat
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=219 top=39 right=74 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: large intes f
----- HyperTalk script -----
on mouseUp

  repeat 2 times
    set highlight of button "large intes" to true
    wait 30 ticks
    set highlight of button "large intes" to false
    wait 30 ticks
  end repeat
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=136 top=88 right=166 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: muscle f
----- HyperTalk script -----
on mouseUp

  repeat 2 times
    set highlight of button "muscle" to true
    wait 30 ticks
    set highlight of button "muscle" to false
    wait 30 ticks
  end repeat
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=363 top=316 right=338 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Back
----- HyperTalk script -----
on mouseUp
  go to card "start"
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=220 top=104 right=132 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cloaca f
----- HyperTalk script -----
on mouseUp

  repeat 2 times
    set highlight of button "cloaca" to true
    wait 30 ticks
    set highlight of button "cloaca" to false
    wait 30 ticks
  end repeat
end mouseUp



-- part contents for card part 5
----- text -----


Bladder
Cloaca
Large Intestine
Muscles
Oviduct